SuperHack/SuperHack CD.bin/CODING/GRAPHICS/HANDYVGA.ZIP/MAIN.ASM

Assembly Source File | 1994-05-06 | 4.1 KB | 207 lines

; Coded by Ash/Alpha...
; I made this thing just for fun, so don't expect a lot of it uh..
; hmm...well I think it's cewl cos it's real small...
; and remember...Greets go2 Diablo/SPR

code segment
assume cs:code
org 100h
jumps

start:

        mov    ax,13h
        int    10h
        mov    ax,0a000h
        mov    es,ax

        mov    bx,320
mainloop:    call    vrt
        mov    di,0
        add    di,word ptr [line01]
        call    palette1
        inc    [line01]
                mov     di,28*320
        add    di,word ptr [line02]
        call    palette1
        dec    [line02]
                mov     di,56*320
                add     di,word ptr [line03]
        call    palette1
                inc     [line03]
                mov     di,84*320
                add     di,word ptr [line04]
        call    palette1
                dec     [line04]
                mov     di,112*320
                add     di,word ptr [line05]
        call    palette1
                inc     [line05]
        mov    di,140*320
        add    di,word ptr [line06]
        call    palette1
        dec    [line06]
        mov    di,168*320
        add    di,word ptr [line07]
        call    palette1
        inc    [line07]

        mov    ah,1
        int    16h
        jz    continue1
        mov    ah,0
        int    16h
        jmp    end_shit

continue1:    dec    bx
        jnz    mainloop

        xor    cx,cx
loop0:        push    cx
        call    vrt
        pop    cx
        mov    bx,200
        mov    di,cx
loop1:        mov    byte ptr es:[di],0
        add    di,320
        dec    bx
        jnz    loop1

        mov    ah,1
        int    16h
        jz    continue2
        mov    ah,0
        int    16h
        jmp    end_shit

continue2:    inc    cx
        cmp    cx,320
        jne    loop0

donow:

        xor    cx,cx
        mov    ax,320
loop2:        push    cx
        call    vrt
        pop    cx
        mov    ax,320
        mul    cx
        mov    bx,320
        mov    di,ax
loop3:        mov    byte ptr es:[di],8
        inc    di
        dec    bx
        jnz    loop3
        mov    ah,1
        int    16h
        jz    continue3
        mov    ah,0
        int    16h
        jmp    end_shit
continue3:    inc    cx
        cmp    cx,200
        jne    loop2
        xor    cx,cx
        mov    ax,320
loop4:          push    cx
        call    vrt
        pop    cx
        mov    ax,320
        mul    cx
        mov    bx,320
        mov    di,ax
loop5:          mov     byte ptr es:[di],7
        inc    di
        dec    bx
                jnz     loop5
        mov    ah,1
        int    16h
        jz    cont4
        mov    ah,0
        int    16h
        jmp    end_shit
cont4:        inc    cx
        cmp    cx,200
                jne     loop4

        mov    ah,1
        int    16h
        jz    donow
        mov    ah,0
        int    16h

end_shit:    mov    ax,3
        int    10h
        mov    ax,0b800h
        mov    es,ax
        mov    cx,2000
        mov    di,0
        mov    si,offset endpic
        rep    movsw
        mov    ah,2
        xor    bh,bh
        mov    dh,100
        int    10h
        mov    ax,4c00h
        int    21h

vrt:        mov    cx,1
        mov    dx,3dah
vrt1:        in    al,dx
        test    al,8
        jne    vrt1
vrt2:        in    al,dx
        test    al,8
        je    vrt2
        loop    vrt1
        ret

; Data

palette1:       mov     byte ptr es:[di+320*1],30
                mov     byte ptr es:[di+320*2],29
                mov     byte ptr es:[di+320*3],28
                mov     byte ptr es:[di+320*4],27
                mov     byte ptr es:[di+320*5],26
                mov     byte ptr es:[di+320*6],25
                mov     byte ptr es:[di+320*7],24
                mov     byte ptr es:[di+320*8],23
                mov     byte ptr es:[di+320*9],22
                mov     byte ptr es:[di+320*10],21
                mov     byte ptr es:[di+320*11],20
                mov     byte ptr es:[di+320*12],19
                mov     byte ptr es:[di+320*13],18
                mov     byte ptr es:[di+320*14],17
                mov     byte ptr es:[di+320*15],16
                mov     byte ptr es:[di+320*16],17
                mov     byte ptr es:[di+320*17],18
                mov     byte ptr es:[di+320*18],19
                mov     byte ptr es:[di+320*19],20
                mov     byte ptr es:[di+320*20],21
                mov     byte ptr es:[di+320*21],22
                mov     byte ptr es:[di+320*22],23
                mov     byte ptr es:[di+320*23],24
                mov     byte ptr es:[di+320*24],25
                mov     byte ptr es:[di+320*25],26
                mov     byte ptr es:[di+320*26],27
                mov     byte ptr es:[di+320*27],28
                mov     byte ptr es:[di+320*28],29
                mov     byte ptr es:[di+320*29],30
        ret

line01 dw 0
line02 dw 319
line03 dw 0
line04 dw 319
line05 dw 0
line06 dw 319
line07 dw 0

endpic    label byte
    include endpic.db

code ends
end start